home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Collection of Tools & Utilities
/
Collection of Tools and Utilities.iso
/
basic
/
fglqbx10.zip
/
06-07.BAS
< prev
next >
Wrap
BASIC Source File
|
1991-06-07
|
648b
|
42 lines
REM $INCLUDE: 'fastgraf.bi'
DEFINT A-Z
CONST Vertices = 10
DIM X(Vertices), Y(Vertices)
REM x coordinates of vertices
DATA 200,300,400,400,300,240,160,160,200,200
REM y coordinates of vertices
DATA 100, 80,100,220,320,320,240,200,160,160
OldMode = FGgetmode
IF FGtestmode(16,1) THEN
FGsetmode 16
ELSEIF FGtestmode(15,1) THEN
FGsetmode 15
ELSE
PRINT "This program requires a 640 x 350 EGA graphics mode."
STOP
END IF
FOR I = 0 TO Vertices-1
READ X(I)
NEXT
FOR I = 0 TO Vertices-1
READ Y(I)
NEXT
FGsetcolor 1
FGpolygon X(), Y(), Vertices
FGwaitkey
FGsetmode OldMode
FGreset
END